home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / MSD-DU15.ARC / SD2 COPIER.BAS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  43 lines
  1. 0 REM   SD2 COPIER BY COLIN THOMPSON
  2. 1 PRINTCHR$(142)"[144]";:GOTO100
  3. 2 OPEN1,8,15,"I0":PRINT#1,"S0:SD2 COPIER":SAVE"SD2 COPIER",8:CLOSE1:END
  4. 20 PRINT"DRIVE"TAB(28)"   SD-2"
  5. 100 POKE53280,7:POKE53281,1:PRINT"[147]";
  6. 150 PRINT"[207]";:FORI=1TO26:PRINT"[183]";:NEXT:PRINT"[208]"
  7. 160 FORI=1TO15:PRINT"[165]";TAB(27)"[167]":NEXT
  8. 170 PRINT"[204]";:FORI=1TO26:PRINT"[175]";:NEXT:PRINT"[186]";
  9. 180 PRINT"";:FORI=1TO15:PRINTTAB(14)"[220]      [220]":NEXT
  10. 190 PRINT"SUPERDISK"TAB(13)"[221]"TAB(20)"[221]"TAB(31)"MSD[144]"
  11. 200 PRINT"DRIVE"TAB(13)"[221]"TAB(20)"[221]"TAB(31)"SD-2[144]"
  12. 210 PRINTTAB(13)"[209]"TAB(20)"[209]"TAB(31)"COPIER[144]":PRINT
  13. 220 PRINT"[215] POWER"TAB(31)"[153]BY[144]"
  14. 230 PRINT"[215] DRIVE0"TAB(31)"[153]COLIN[144]"
  15. 240 PRINT"[215] DRIVE1"TAB(31)"[153]THOMPSON[144]"
  16. 250 PRINT:PRINT:PRINT
  17. 260 PRINT"----MSD----"
  18. 270 PRINT:PRINT
  19. 280 PRINT"   SD-2"
  20. 300 PRINT"COPY:FROM   [152]D0^  TO  [154]^D1"
  21. 310 PRINT"         [152]SOURCE      [154]DESTINATION"
  22. 320 FORI=1TO40:PRINT"[184]";:NEXT
  23. 350 PRINT"[150]OPTIONS[146]: C[146]OPY FILE  OR   D[146]UPLICATE DISK"
  24. 360 FORI=1TO40:PRINT"[185]";:NEXT
  25. 400 PRINT"[150]PRESS C[146] OR D"
  26. 410 GETA$:IFA$=""THEN410
  27. 420 IFA$="C"THEN500
  28. 430 IFA$="D"THEN700
  29. 440 GOTO410
  30. 500 INPUT"[129]FILENAME [150]";N$
  31. 520 PRINT"[145][145][129]COPY[146]         [157][157][157][157][157][157][157][150]"N$:PRINT"FROM DRIVE 0 TO DRIVE 1 <Y/N>";
  32. 530 INPUTYN$
  33. 540 IFYN$<>"Y"THENRUN
  34. 550 CLOSE1:OPEN1,8,15,"I"
  35. 555 PRINT#1,"C1:"+N$+"=0:"+N$
  36. 560 CLOSE1:RUN
  37. 700 INPUT"[144]READY <Y/N>";YN$
  38. 710 IFYN$<>"Y"THENRUN
  39. 720 OPEN1,8,15,"D1=0"
  40. 730 CLOSE1:RUN
  41. 10000 GETA$:IFA$=""THEN10000
  42. 10010 LIST
  43.